home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / T-TPUG Old Monthly Disks / (c)t8.d64 / life 2.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  3KB  |  64 lines
  1. 10 REM              LIFE
  2. 11 REM
  3. 12 REM          FRANK LINDSEY
  4. 13 REM          BOWLING GREEN
  5. 14 REM          KENTUCKY, USA
  6. 15 REM          (502)781-3117
  7. 16 REM
  8. 17 REM LET'S HEAR IT FOR FREE SOFTWARE!
  9. 18 REM
  10. 19 REM LET'S ALSO HEAR IT FOR MAKING A
  11. 20 REM BUCK. WATCH FOR MY OTHER COMMER-
  12. 21 REM CIALLY AVAILABLE PROGRAMS.
  13. 22 REM
  14. 1000 PRINT"[147][142]":POKE53280,6:POKE53281,6
  15. 1010 PRINTSPC(18)"LIFE":PRINT"BY JOHN H. CONWAY"
  16. 1020 PRINT"C-64 VERSION BY FRANK LINDSEY"
  17. 1030 PRINT"INSTRUCTIONS (Y/N)?"
  18. 1040 GETA$:X=1-(A$="Y")-2*(A$="N"):ONXGOTO1040,1050,2000
  19. 1050 PRINT"[147]  LIFE IS A COMPUTER SIMULATION OF"
  20. 1060 PRINT"DEATH AND SURVIVAL IN A COMMUNITY."
  21. 1070 PRINT"LIFE FORMS ARE REPRESENTED AS CIRCLES"
  22. 1080 PRINT"([209]). WITH EACH NEW GENERATION THESE"
  23. 1090 PRINT"LIFE FORMS WILL LIVE, DIE OR BE BORN"
  24. 1100 PRINT"ACCORDING TO CERTAIN RULES."
  25. 1110 PRINT"  IF ANY LIFE FORM HAS MORE THAN THREE"
  26. 1120 PRINT"NEIGHBORS OR LESS THAN TWO THEN IT WILL"
  27. 1130 PRINT"DIE.  IF EXACTLY THREE LIFE FORMS"
  28. 1140 PRINT"SURROUND AN EMPTY SPACE THEN A LIFE"
  29. 1150 PRINT"FORM WILL BE BORN IN THAT SPACE."
  30. 1160 PRINT"         (PRESS THE SPACE BAR)"
  31. 1170 IFPEEK(197)<>60THENGOTO1170
  32. 1180 PRINT"[147]  IN THE FOLLOWING SITUATIONS YELLOW"
  33. 1190 PRINT"CIRCLES WILL NOT SURVIVE TO THE NEXT"
  34. 1200 PRINT"GENERATION FOR THE INDICATED REASONS."
  35. 1210 PRINT"ARROWS INDICATE WHERE A LIFE FORM WILL"
  36. 1220 PRINT"BE BORN."
  37. 1230 PRINT"                    [209]
  38. 1240 [153]"                   (null) (null)
  39. 1250 PRINT"                  [209] [209] [209]
  40. 1260 [153]"       _TANTANRIGHT$      SYS(null) ^ ^ SYS(null)      (null)(null)
  41. 1270 PRINT"     [158][209][209][158][209]  [221]      ^ [202][178][203] ^      [209][158][209][209]
  42. 1280 [153]"     ^ ^  (null)  (null)TANTANTAN>TANTAN(null)TANTAN(null)       ^
  43. 1290 PRINT"     [221]^[221]  [221]  [221]      [221]          [221]
  44. 1300 [153]"     (null)MID$(null)TANTAN<  (null)      (null)          (null)
  45. 1310 PRINT"     [202][178][203]  [202][192][192][219][192]LIFE FORMS WILL [221]
  46. 1315 [153]"      (null)      (null) BE BORN HERE    (null)
  47. 1317 PRINT"      [221]      [221]                 [221]
  48. 1320 [153]"  THESE WILL DIE    THIS ONE WILL DIE
  49. 1330 PRINT"  OF LONELINESS     FROM OVERCROWDING
  50. 1340 [153]"         (PRESS THE SPACE BAR)"
  51. 1350 [139][194](197)[179][177]60[167][137]1350
  52. 1360 [153]"LOAD  CURSOR MOVEMENT IS STANDARD THROUGH"
  53. 1370 [153]"THE CONTROL KEYS.  PLACE A LIFE FORM"
  54. 1380 [153]"BY PRESSING THE RETURN KEY, ERASE WITH"
  55. 1390 [153]"THE SPACE BAR.  USE THE 'E' KEY TO"
  56. 1400 [153]"ERASE THE SCREEN.
  57. 1420 PRINT"  WHEN ALL CHARACTERS ARE IN POSITION"
  58. 1430 PRINT"PRESS THE 'R' KEY TO START AND PRESS"
  59. 1440 PRINT"THE RUN/STOP KEY TO RETURN TO THE"
  60. 1450 PRINT"EDIT MODE."
  61. 1460 PRINT"     (PRESS THE SPACE BAR TO BEGIN)"
  62. 1470 IFPEEK(197)<>60THEN1470
  63. 2000 SYS4409
  64.